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FORSEXIT 
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FORSEXIT = FORTRAN CALL EXIT 15SEP-1984 23:52:41 VAX/VMS Macro V04-00 Pose 
eit 33 areeer IRs Fbiesicd FRBANTS Basse NOOO. rage od, 
TITLE FORSEXIT = FORTRAN CALL EXIT 
“IDENT 100087 : File: FOREXIT.MAR Edit: $BL1005 


—MARRBARARAARARARAAAAALALASALASARRERSAAAEE REAR AA RASA RARER EAR EERE REESE ERE R RR ERE SE SE | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE i FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE Vgpithoe NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF oy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vaausteince O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ae epokaTion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR _ RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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ai FACILITY: FORTRAN Support Library 
; ABSTRACT: 

; Call system service SEXIT to exit program. 
; ENVIRONMENT: User Mode, AST Reentrant 
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OR 
FORSEXIT - FORTRAN CALL EXIT 15-SEP-1984 AX/VMS Macro 
et 33 Version History 6-SEP-1984 t 9: 3:4 FORRTL.SRCIFO 


-SBTTL Version History 


VERSION 1-001 
AUTHOR: Jonathan M. Taylor, CREATION DATE: 25-Jan-78 


JMT, 25-Jan-78 : VERSION 0 


Original 
Pass optional user parameter as completion code. JMT 27-Jan-78 
bedake aversion number and copyright nes ces JBS 16-NOV-78 
Add to the PSECT directive. ofe® & -78 
Declare externals. May-19 
Longword entry was moving wo word and vice versa! Fix it! SBL 22-Jan-1980 
Use general mode addressing. SBL 30-Nov-1981 


v04-00 Page § 
REXIT.MAR;1 (2) 
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A Sees "xSEb=]SB2 §5:88523 ERSRRTC. SReSPOREXTT mar; PA9% (3). 
.SBTTL DECLARATIONS | 

: : INCLUDE FILES: | 


angen tt 


+ MACROS: | 


EXTERNAL SYMBOLS: 


-OSABL GBL 
~EXTRN SYSSEXIT 


OWN STORAGE: 
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t PSECT DECLARATIONS: 
.PSECT _FORSCODE PIC, SHR, LONG, EXE, NOWRT 
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EQUATED SYMBOLS: 
| 
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| 
! 


| N 7 
FORSEXIT = FORTRAN CALL EXIT 15-SEP-1984 23:52:41 VAX/VMS Macro V04-00 Page 4 FOR 
eit 33 FORSEXIT = exit program rant ioety ys $333 749 (CFORRTL.SRCJFOREXIT.MAR;1 . (4) | 1-¢ 


| 
| 


3 ~SBTTL FORSEXIT - exit orogram : 


=< 
—D 


ae 
FUNCTIONAL DESCRIPTION: 


Call system service EXIT to exit to CLI. Completion code value 
is 1 unless user provided one as an optional argument. 


; CALLING SEQUENCE: 
FORSEXIT C(completion_code)] 
; INPUT PARAMETERS: | 
NONE 
IMPLICIT INPUTS: 


; NONE | 


OUTPUT PARAMETERS: | 

NONE 

S IMPLICIT OUTPUTS: 
NONE 
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; FUNCTION VALUE: 


SIDE EFFECTS: | 
| 


DOoOSCOCSOOSOSOSOOSOSOSOOOSOOOSOOOOOOOOOOOOOOOOOOOOoOO 
SSsssssssssssss Ss 


NAME WN SO OD NO UE WN 9 OD NOAM EWN 0 OO NAME WIN $0 OO NOUS WO OONOUS 


WNWIAIANWIWIWIPIPIPININININININIDN 2 2 OP | MOOOOOCOCOCOCOCOCOOOOONOOOOOMO 


ee ec cm ce ee ee ee ee ee ce ee ee ee ee ed aed ed ed 


NONE 
0 
0000 0 ENTRY FORSEXIT_W, 0 
6c 95 0 TSTB (AP) 
16 13 000 EQL CALL_1 
7E 04 8C 3C 000 MOVZWL a@4(AP), -(SP) 
09 «11 B99 RB CALLIT 
0000 it ENTRY FORSEXIT, 0 
6C 95 000 TSTB (AP) 
OA 13 001 BEQL CALL 
04 BC DD 001 PUSHL a@4(AP) 
001 CALLIT: 
00000000'GF 01 FB 001 CALLS #1, G*SYSSEXIT 
01 CALL_1: 
01 dD 001 PUSHL #1 
FS 11001 RB CALLIT 
09 
Q 
02 ~END 


—— 
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v04-00 
FORRTL.SR RCIF FOREXIT.MAR; 1 (4) | 


CALLIT 90000015 1 | 

ALL 1 B88 ic R 1 

FORSEXIT 0 of RG 1 

FORSEXIT_W 00000000 RG 1 

SYSSEXIT eeeeeeee 8 6X 

tm Son me eease & | 

! Psect synopsis ! 

(nnae semen ae eco = ot | 

PSECT name Allocation PSECT No. Attributes | 

« AOS , 00000000 “¢ 9.) 69 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

_FORSCODE 00000020 < 3 © Bee PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG | 

een en Sane naw ana aa munca + 

H ; Performance indicators H 

Phase Page faults CPU Time Elapsed Time | 

Initialization 29 00:00:00.07 09 :00:00.92 

pennend processing 117 BF OR BR ee 00:00:03.74 
69 00:00:00.4 00:00:02.48 
Suabol table sort 0 Sb Soa aS 00:00:00.00 
Pass 2 38 00:00:00.31 00:00:01.88 
Symbol table output 2 00:00:00.02 00:00:00.04 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 259 00:00:01.24 00:00:08.50 


| 
| 
The working et Limit was 900 pages. 
1387 bytes (3 pages) of virtual memory were used to buffer the intermediate code. | 
There were 10 pages of symbol table space allocated to hold 5 non-local and 0 local symbols. 
137 source Lines were read in Pass 1, producing 14 object records in Pass 2. | 
0 pages of virtual memory were used to define 0 macros. | 

| 

| 


Macro Library name Macros defined 
“S255$DUAZ8:(SYSLIBISTARLET.MLBs2 0 (ittststststStS~S 0 
0 GETS were required to define 0 macros. | 
There were no errors, warnings or information messages. | 
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